inherited FRM_PesquisaPosologiaFF: TFRM_PesquisaPosologiaFF
  Left = 538
  Top = 211
  PixelsPerInch = 96
  TextHeight = 15
  inherited gbPadrao: TAdvGroupBox
    inherited edtPesquisar: TAdvEdit
      OnKeyDown = edtPesquisarKeyDown
    end
    inherited GridPesquisar: TJvDBGrid
      TitleRowHeight = 19
      Columns = <
        item
          Expanded = False
          FieldName = 'COD_POSOLOGIA'
          Title.Alignment = taCenter
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -12
          Title.Font.Name = 'Segoe UI'
          Title.Font.Style = []
          Width = -1
          Visible = False
        end
        item
          Expanded = False
          FieldName = 'DESCRICAO'
          Title.Alignment = taCenter
          Title.Caption = 'Descri'#231#227'o da Posologia'
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -12
          Title.Font.Name = 'Segoe UI'
          Title.Font.Style = []
          Width = 328
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'DATA_CAD'
          Title.Alignment = taCenter
          Title.Caption = 'Registro'
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -12
          Title.Font.Name = 'Segoe UI'
          Title.Font.Style = []
          Width = 76
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'DATA_ALTERACAO'
          Title.Alignment = taCenter
          Title.Caption = 'Altera'#231#227'o'
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -12
          Title.Font.Name = 'Segoe UI'
          Title.Font.Style = []
          Width = -1
          Visible = False
        end>
    end
    inherited pnlTitulo: TPanel
      Caption = 'Pesquisar Lista de Posologia'
    end
  end
  inherited sqlPesquisar: TSQLQuery
    Params = <
      item
        DataType = ftInteger
        Name = 'cod_forma'
        ParamType = ptInput
      end>
    SQL.Strings = (
      'select'
      '  a.cod_posologia,'
      '  a.descricao,'
      '  a.data_cad,'
      '  a.data_alteracao'
      'from f_forma_posologia a'
      'where a.lig_cod_forma = :cod_forma'
      'order by a.data_cad desc')
  end
  inherited cdsPesquisar: TClientDataSet
    object cdsPesquisarCOD_POSOLOGIA: TIntegerField
      Alignment = taCenter
      FieldName = 'COD_POSOLOGIA'
      Required = True
    end
    object cdsPesquisarDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Required = True
      Size = 100
    end
    object cdsPesquisarDATA_CAD: TDateField
      Alignment = taCenter
      FieldName = 'DATA_CAD'
    end
    object cdsPesquisarDATA_ALTERACAO: TDateField
      Alignment = taCenter
      FieldName = 'DATA_ALTERACAO'
    end
  end
end
